home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Linux Programs 1995 Summer
/
Linux Programs.iso
/
ghostscr
/
gs_2.6
/
gs_2
/
usr
/
lib
/
ghostscript
/
gs_2asc.ps
< prev
next >
Wrap
Text File
|
1993-01-31
|
6KB
|
177 lines
% Copyright (C) 1991, 1992 Aladdin Enterprises. All rights reserved.
% Distributed by Free Software Foundation, Inc.
%
% This file is part of Ghostscript.
%
% Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY. No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing. Refer
% to the Ghostscript General Public License for full details.
%
% Everyone is granted permission to copy, modify and redistribute
% Ghostscript, but only under the conditions described in the Ghostscript
% General Public License. A copy of this license is supposed to have been
% given to you along with Ghostscript so you can know your rights and
% responsibilities. It should be in a file named COPYING. Among other
% things, the copyright notice and this notice must be preserved on all
% copies.
% Extract the ASCII text from a PostScript file. Nothing is displayed.
% Instead, lines are written to stdout as follows:
% F <height> <width> (<fontname>)
% indicate font height and width of a space
% S <x> <y> (<string>) <width>
% display a string
% P
% end of page
%
% <height> is an integer expressed in tenths of a point
% <width> is an integer in tenths of a point.
% <x> and <y> are integer coordinates, in tenths of a point, with origin
% at lower left.
% <string> and <fontname> are string represented with the standard
% PostScript escape conventions.
% The idea is similar to Glenn Reid's `distillery', only a lot more
% simple-minded, and less robust.
% Note that this code will only work properly if systemdict is writable
% and if `binding' the definitions of operators defined as procedures
% is deferred. For this reason, it is normally invoked with
% gs -q -dNOBIND -dWRITESYSTEMDICT gs_2asc.ps
% Thanks to J Greely <jgreely@cis.ohio-state.edu> for improvements
% to this code.
/QUIET true def
systemdict wcheck { systemdict } { userdict } ifelse begin
% Disable the display operators.
/eofill { newpath } odef
/erasepage { } odef
/fill { newpath } odef
/stroke { newpath } odef
% The image operators must read the input, but do nothing.
/colorimage { gsave nulldevice //colorimage grestore } odef
/image { gsave nulldevice //image grestore } odef
/imagemask { gsave nulldevice //imagemask grestore } odef
% Redefine the end-of-page operators.
/copypage { (P\n) //print } odef
/showpage { copypage erasepage initgraphics } odef
% Redefine `show'.
% Set things up so our output will be in tenths of a point, with origin at
% lower left. This isolates us from the peculiarities of individual devices.
/.show.ident.matrix matrix def
/.show.ident
{ gsave initmatrix 0.1 dup scale .show.ident.matrix currentmatrix grestore
} def
/.coord { transform .show.ident itransform } odef
/.dcoord { dtransform .show.ident idtransform } odef
/.showfont
%old code - This didn't work right for me with all fonts.
%
% { 0 currentfont /FontBBox get dup 3 get exch 1 get sub
% currentfont /FontMatrix get dtransform dtransform
% exch abs exch abs max round
% (F ) //print //.stdout exch write==only (\n) //print
% } odef
%
%unfortunately, my way bombs on one of my test files in
%--%show_continue--(?!). It's from dvi2ps, which molests
%the fonts in some way. --jgreely
{ (F ) //print
gsave
% figure out (roughly) the maximum height of the current
% font. I picked this string for a mix of ascenders and
% descenders, with digits tossed in in case of oldstyle
newpath 0 0 moveto
(Xyhq69) false charpath flattenpath pathbbox newpath
exch 4 -1 roll sub 3 1 roll exch sub .dcoord
round abs //.stdout exch write==only pop
( ) //print
% oddly enough, the "charpath...pathbbox" stuff didn't work
% right for space in courier
( ) stringwidth
.dcoord pop
round //.stdout exch write==only
% ( ) //print
% //.stdout currentfont /FontName get
% dup type /nametype eq { =string cvs } if
% write==only
(\n) //print
grestore
} odef
/.showstring
{ (S ) //print
gsave
currentpoint .coord
exch round dup //.stdout exch write==only
( ) //print
exch round dup //.stdout exch write==only
( ) //print
moveto dup //.stdout exch write==only
( ) //print
grestore dup stringwidth pop 0 rmoveto
stringwidth .dcoord pop
round //.stdout exch write==only
(\n) //print
} odef
/show
{ .showfont .showstring
} odef
% Redefine the other string display operators in terms of `show'.
/.show1 { ( ) dup 0 3 index put exch pop .showstring } odef
/ashow
{ .showfont
{ .show1 2 copy rmoveto } forall
exch neg exch neg rmoveto
} odef
/widthshow
{ .showfont
{ 2 copy .show1 eq { 1 index 2 index rmoveto } if } forall
pop pop pop
} odef
/awidthshow
{ .showfont
{ dup .show1 3 index eq { 4 index 5 index rmoveto } if
2 copy rmoveto
} forall
exch neg exch neg rmoveto
pop pop pop
} odef
/kshow
{ .showfont
{ .show1 dup exec } forall pop
} odef
% Redirect the printing operators.
/.stdout (_temp_.out) (w) file def
/.stderr (_temp_.err) (w) file def
/print { //.stdout exch writestring } odef
end
% Bind the operators we just defined, and all the others if we didn't
% do it before.
bindoperators
NOBIND currentdict systemdict ne and
{ systemdict begin bindoperators end }
if
% Make systemdict read-only if it wasn't already.
systemdict wcheck { systemdict readonly pop } if